home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Highspeed pascal.adf
/
Interface
/
Timer.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
609b
|
49 lines
Unit Timer;
Interface
Uses Exec;
Type
ttimeval = Record
tv_secs: LongInt;
tv_micro: LongInt;
End;
ttimerequest = Record
tr_node: tIORequest;
tr_time: ttimeval;
End;
ptimeval = ^ttimeval;
pLibrary = ^tLibrary;
Var
TimerBase: pLibrary;
Const
TR_ADDREQUEST = $9;
TR_GETSYSTIME = $A;
TR_SETSYSTIME = $B;
UNIT_MICROHZ = $0;
UNIT_VBLANK = $1;
TIMERNAME = 'timer.device';
Procedure AddTime
(dest: ptimeval;
src: ptimeval);
Procedure SubTime
(dest: ptimeval;
src: ptimeval);
Function CmpTime
(dest: ptimeval;
src: ptimeval): LongInt;
End.